﻿Public Class Form1

    Private Sub QuitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub FacebookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FacebookToolStripMenuItem.Click
        WebBrowser1.Navigate("http://www.facebook.com")
    End Sub

    Private Sub MySpaceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MySpaceToolStripMenuItem.Click
        WebBrowser1.Navigate("http://www.myspace.com")
    End Sub

    Private Sub TwitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TwitterToolStripMenuItem.Click
        WebBrowser1.Navigate("http://twitter.com")
    End Sub

    Private Sub MSNBCToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MSNBCToolStripMenuItem.Click
        WebBrowser1.Navigate("http://www.msnbc.msn.com")
    End Sub

    Private Sub CNNToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CNNToolStripMenuItem.Click
        WebBrowser1.Navigate("http://www.cnn.com")
    End Sub

    Private Sub WeathergovToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WeathergovToolStripMenuItem.Click
        WebBrowser1.Navigate("http://www.weather.gov")
    End Sub

    Private Sub WeathercomToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WeathercomToolStripMenuItem.Click
        WebBrowser1.Navigate("http://www.weather.com")
    End Sub

    Private Sub WundergroundToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WundergroundToolStripMenuItem.Click
        WebBrowser1.Navigate("http://wunderground.com")
    End Sub
End Class
